Option Explicit
Sub J_Sample013()
    Dim myBtn As CommandBarButton
    'w
    Set myBtn = Application.CommandBars(1).Controls(1).Controls(1)
    myBtn.Execute
    Set myBtn = Nothing				'
End Sub
